home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesC-D.lzh / DefendersOfTheEarth.lha / DOEHD / Install < prev    next >
Text File  |  2001-12-13  |  4KB  |  180 lines
  1. (set #CI_unit 0)
  2. (set #CI_drive ("DF%ld:" #CI_unit))
  3. (set #readme-file "ReadMe")                     ;name of the readme file
  4. (set #docs-file "Instructions")                 ;name of the docs file
  5. (set #highs-file "highs")       ;name of high scores file
  6.  
  7.  
  8. ;----------------------------
  9.  
  10. ;try to figure out a place where the user usually installs his games
  11. (if (exists "Games:" (noreq) )
  12.     (set @default-dest "Games:")
  13.     (if (exists "SYS:Games" (noreq) )
  14.         (set @default-dest "SYS:Games")
  15.         (if (exists "Work:Games" (noreq) )
  16.             (set @default-dest "Work:Games")
  17.             (if (exists "JEUX:" (noreq) )
  18.                (set @default-dest "JEUX:")
  19.                (set @default-dest "SYS:")
  20.             )
  21.         )
  22.     )
  23. )
  24.  
  25. (message "\n\n\nThis loader needs the WHDLoad program (NOT INCLUDED)\n to be copied in your path\n\n(if you don't have it already)\n\nWHDLoad is available from aminet (game/patch) or on my site")
  26.  
  27.  
  28. (set default-dest
  29. (askdir
  30.         (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  31.         (help @askdir-help)
  32.         (default @default-dest)
  33.         (disk)
  34. )
  35. )
  36.  
  37. (set #dest (tackon default-dest @app-name))
  38.  
  39. (set #Game_Ver
  40.         (askchoice
  41.                 (prompt "Which version of Defenders of the Earth do you wish\nto install")
  42.                 (help   @askoptions-help)
  43.                 (choices
  44.                    "Original Release"
  45.                    "TNT Compilation Release (DOE/Shanghai)"
  46.                 )
  47.         )
  48. )
  49.  
  50. (set #CI_unit
  51.         (askchoice
  52.                 (prompt "From which disk unit do you want\nto install the game")
  53.                 (help   @askoptions-help)
  54.                 (choices
  55.                    "DF0:"
  56.                    "DF1:"
  57.                    "DF2:"
  58.                    "DF3:"
  59.                 )
  60.         )
  61. )
  62.  
  63. (set #CI_drive ("DF%ld:" #CI_unit))
  64.  
  65. (makedir #dest
  66.         (help @makedir-help)
  67.         (infos)
  68. )
  69.  
  70. ;----------------------------
  71. (makedir
  72.    (tackon #dest "data")
  73.    (help @makedir-help)
  74. )
  75. (copyfiles
  76.   (help @copyfiles-help)
  77.   (source ("%s.Slave" @app-name))
  78.   (dest #dest)
  79. )
  80. (if
  81.   (exists ("%s.newicon" @app-name))
  82.   (set #icon
  83.     (askchoice
  84.       (prompt "\nWhich icon would you like to install?\n")
  85.       (default 0)
  86.       (choices "Normal" "NewIcon" "GlowIcon" "Exotic NewIcon (box scan)" "Exotic GlowIcon (box scan)")
  87.       (help @askchoice-help)
  88.     )
  89.   )
  90.   (set #icon 0)
  91. )
  92. (select #icon
  93.   (set #icon ("%s.inf" @app-name))
  94.   (set #icon ("%s.newicon" @app-name))
  95.   (set #icon ("%s.glowicon" @app-name))
  96.   (set #icon ("%s.enewicon" @app-name))
  97.   (set #icon ("%s.exoticon" @app-name))
  98. )
  99. (copyfiles
  100.   (help @copyfiles-help)
  101.   (source #icon)
  102.   (newname ("%s.info" @app-name))
  103.   (dest #dest)
  104. )
  105. (if
  106.   (exists #readme-file)
  107.   (copyfiles
  108.     (help @copyfiles-help)
  109.     (source #readme-file)
  110.     (dest #dest)
  111.   )
  112. )
  113. (if
  114.   (exists ("%s.info" #readme-file))
  115.   (
  116.     (copyfiles
  117.       (help @copyfiles-help)
  118.       (source ("%s.info" #readme-file))
  119.       (dest #dest)
  120.     )
  121.     (tooltype
  122.       (dest (tackon #dest #readme-file))
  123.       (noposition)
  124.     )
  125.   )
  126. )
  127. (if
  128.   (exists #docs-file)
  129.   (copyfiles
  130.     (help @copyfiles-help)
  131.     (source #docs-file)
  132.     (dest #dest)
  133.   )
  134. )
  135. (if
  136.   (exists ("%s.info" #docs-file))
  137.   (
  138.     (copyfiles
  139.       (help @copyfiles-help)
  140.       (source ("%s.info" #docs-file))
  141.       (dest #dest)
  142.     )
  143.     (tooltype
  144.       (dest (tackon #dest #docs-file))
  145.       (noposition)
  146.     )
  147.   )
  148. )
  149. (if
  150.   (exists #highs-file)
  151.   (copyfiles
  152.     (help @copyfiles-help)
  153.     (source #highs-file)
  154.     (dest #dest)
  155.   )
  156. )
  157.  
  158. (if (= #Game_Ver 0)
  159. (message ("\nInsert %s disk into drive %s !" @app-name #CI_drive)))
  160. (if (= #Game_Ver 0)
  161.         (if
  162.                 (= 0 (run ("readdoedisk %ld \"%s/data/Disk.1\" 2 159 3 159 >con:0/0/450/200//CLOSE/WAIT" #CI_unit #dest )))
  163.                 ("")
  164.                 (abort "\"readdoedisk\" must be in your PATH !")
  165.         ))
  166. (if (= #Game_Ver 1)
  167.         (message ("\nInsert %s disk into drive %s !" @app-name #CI_drive))
  168. )
  169. (if (= #Game_Ver 1)
  170.         (if
  171.                 (= 0 (run ("copy df%ld:DE#? df%ld:1 to \"%s/data\"" #CI_unit #CI_unit #dest)))
  172.                 ("")
  173.                 (abort "\"\" must be in your PATH !")
  174.         )
  175. )
  176.  
  177.  
  178. (exit)
  179.  
  180.